Column

Maxmium and minimum temperature in year 2008 with precipitation informaiton

temerature_df |>
  mutate(text_label = str_c("Station id: ", id, "\nprecipitation: ", prcp, "mm")) |> 
  plot_ly(
    x = ~tmin, y = ~tmax, color = ~prcp, text = ~text_label,
    type = "scatter", mode = "markers",
    alpha = 0.25)

Column

Maxmium temperature of selected month in 2007

temerature_df |> 
  mutate(month = fct_reorder(month, tmax)) |> 
  plot_ly(x= ~month, y = ~tmax, color = ~month, type = "box", colors = "viridis")

Number of days with snow fall by weather stations in year 2007

temerature_df |> 
  filter(snow > 0) |> 
  count(id) |> 
  mutate(id = fct_reorder(id, n)) |> 
  plot_ly(x= ~id, y = ~n, color = ~id, type = "bar", colors = "viridis")